﻿Public Class FormEventCnt

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 启动两个计数器
        EventCounter.InitCounter(2)

    End Sub

    Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
        Timer1.Start()
        EventCounter.Start()
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lbCnt0.Text = EventCounter.GetCount(0)
        lbCnt1.Text = EventCounter.GetCount(1)
    End Sub
End Class